My Neighborhood/My Neighborhood.iso/mac/MacFiles/ExitAir.Dxr/00031.ls

Text File | 1997-11-21 | 844 b | 31 lines

on mouseDown
  global mySprite
  set the visible of sprite 20 to 0
  set wagonH to 577
  set wagonV to 386
  set mySprite to the clickOn
  set startH to the locH of sprite mySprite
  set startV to the locV of sprite mySprite
  set the castNum of sprite mySprite to the castNum of sprite mySprite + 900
  set snapped to dragItem(wagonH, wagonV, 0, 1)
  if not snapped then
    if sprite mySprite intersects 3 then
      set NewsnapH to 1
    else
      set NewsnapH to 0
    end if
    if NewsnapH = 0 then
      set the locH of sprite mySprite to startH
      set the locV of sprite mySprite to startV
      set the castNum of sprite mySprite to the castNum of sprite mySprite - 900
      updateStage()
    else
      snapTo(mySprite, wagonH, wagonV)
      set snapped to 1
    end if
  end if
  if snapped then
    go("back out")
  end if
end